home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / text / misc / 2b_Ort.lha / Ort / ARexx / CheckFile.ort next >
Text File  |  1999-02-10  |  1KB  |  37 lines
  1. /*
  2. $ver: CheckFile.ort 1.0 (29.08.98) BLABLA PRODUCT
  3. (c) 1998 Szczepan/BlaBla
  4.  
  5. Skrypt przeznaczony jest do programów zarzâdzajâcych plikami (np. DOpus).
  6. Powoduje on sprawdzenie zaznaczonego pliku programem Ort. Skrypt
  7. najlepiej podîoûyê pod gadûet lub menu programu zarzâdzajâcego zbiorami.
  8. Wymaga on podania nazwy pliku do sprawdzenia wraz ze ôcieûkâ dostëpu
  9. (np. CheckFile.ort "dh2:dokumenty/tekst".
  10.  
  11. UWAGA!!! Jeôli nie zainstalowaîeô tego skryptu instalatorem Orta,
  12.          to musisz dopisaê nastëpujâcâ linië:
  13.          ORTFILENAME=ôcieûka dostëpu/ort
  14.      Zamiast "ôcieûka dostëpu" naleûy oczywiôcie wpisaê ôcieûkë dostëpu
  15.          do programu Ort (np. ORTFILENAME=dh2:tekst/ort/ort).
  16. */
  17.  
  18. PARSE ARG InFilename ''
  19.  
  20. IF ~SHOW('P', '2b_Ort_rexx') THEN DO
  21.    IF ORTFILENAME='ORTFILENAME' THEN DO
  22.      Say 'Program Ort nie jest uruchomiony.'
  23.      EXIT
  24.    END
  25.    ADDRESS COMMAND 'Run >NIL: "'ORTFILENAME'"'
  26.    ADDRESS COMMAND 'WaitForPort 2b_Ort_rexx'
  27. END
  28.  
  29. address '2b_Ort_rexx'
  30.  
  31. Info Hide
  32. IF RESULT=1 THEN Show
  33.  
  34. Ort To Front
  35. Load InFilename
  36. Correction
  37.